home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
dm313.zip
/
DM3MAIN.MNU
< prev
next >
Wrap
Text File
|
1990-01-27
|
4KB
|
264 lines
;DM3 Menu Overlay
Var ForeColor BackColor VPos %Menu
if ColorScreen
ForeColor = Yellow
BackColor = Mag
InverseColor Yellow Cyan
VPos = 2
else
ForeColor = Black
BackColor = Grey
InverseColor White Black
VPos = 4
endif
Procedure VerticalBox
SingleLineBox
BoxBorderColor Yellow Red
BoxInsideColor Grey Red
EndProc
Explode On
ExplodeDelay = 10
ClearScreenOnExit Off
PullMenu On
BoxBorderColor Cyan Blue
BoxInsideColor Yellow Mag
CapsColor LCyan Mag
BlankTime = 10
if ColorScreen
NoBoxBorder
DrawBox 2 1 78 1
else
SingleLineBox
DrawBox 1 1 80 3
endif
Write ' Single Marked Directory Other Config Quit'
UseArrows
Explode Off
OnKey 'E'
EDIT DM3MAIN.MNU
OnKey 'Z'
|Execute 'C:\COMMAND.COM'
OnKey 'S'
^Single
OnKey 'M'
^Marked
OnKey 'D'
^Directory
OnKey 'O'
^Other
OnKey 'C'
^Config
OnKey 'Q'
^Quit
:Single
VerticalBox
DrawBox 6 VPos 15 12
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Copy'
Writeln ' Delete'
Writeln ' Move'
Writeln ' Rename'
Writeln ' Time & date'
Writeln ' Edit'
Writeln ' View'
Writeln ' eXecute'
Writeln ' Attributes'
Write ' Patch'
OnKey 'C'
|StuffKbd = 'C'
|ExitMenu
OnKey 'D'
|StuffKbd = 'D'
|ExitMenu
OnKey 'M'
|StuffKbd = 'M'
|ExitMenu
OnKey 'A'
|StuffKbd = 'A'
|ExitMenu
OnKey 'R'
|StuffKbd = 'R'
|ExitMenu
OnKey 'T'
|StuffKbd = 'T'
|ExitMenu
OnKey 'E'
|StuffKbd = 'E'
|ExitMenu
OnKey 'P'
|StuffKbd = 'P'
|ExitMenu
OnKey 'V'
|StuffKbd = 'V'
|ExitMenu
OnKey 'X'
|StuffAKey $3C00
|ExitMenu
:Marked
VerticalBox
DrawBox 15 VPos 15 7
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Copy'
Writeln ' Delete'
Writeln ' Move'
Writeln ' Time & date'
Write ' Attributes'
Onkey 'C'
|StuffAKey $2E00
|ExitMenu
Onkey 'D'
|StuffAKey $2000
|ExitMenu
Onkey 'M'
|StuffAKey $3200
|ExitMenu
Onkey 'T'
|StuffAKey $1400
|ExitMenu
Onkey 'A'
|StuffAKey $1E00
|ExitMenu
:Directory
VerticalBox
DrawBox 24 VPos 15 7
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Change dir'
Writeln ' Prev dir'
Writeln ' Root dir'
Writeln ' Drive'
Write ' New path'
Onkey 'C'
|StuffAKey $4100
|ExitMenu
Onkey 'P'
|StuffKbd '-'
|ExitMenu
Onkey 'R'
|StuffKbd '\'
|ExitMenu
Onkey 'D'
|StuffAKey $3F00
|ExitMenu
Onkey 'N'
|StuffAKey $4000
|ExitMenu
:Other
VerticalBox
DrawBox 36 VPos 15 8
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Free'
Writeln ' Sort'
Writeln ' Reread'
Writeln ' Wildcard'
Writeln ' reVerse'
Write ' Time'
OnKey 'F'
|StuffKbd = 'F'
|ExitMenu
OnKey 'S'
|StuffKbd = 'S'
|ExitMenu
OnKey 'R'
|StuffKbd = 'L'
|ExitMenu
OnKey 'W'
|StuffKbd = 'W'
|ExitMenu
OnKey 'V'
|StuffKbd = 'X'
|ExitMenu
OnKey 'T'
|StuffKbd = 'Z'
|ExitMenu
:Config
VerticalBox
DrawBox 44 VPos 15 5
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Key setup'
Writeln ' Edit menu'
Write ' Other menus'
OnKey 'K'
|StuffAKey = $4200
|ExitMenu
OnKey 'E'
EDIT DM3MAIN.MNU
OnKey 'O'
|%Menu = PickFile '*.MNU' 60 5 17
EDIT %Menu
:Quit
VerticalBox
DrawBox 53 VPos 15 4
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Quit'
Write ' Current dir'
OnKey 'Q'
|StuffKbd 'QQ'
|ExitMenu
OnKey 'C'
|StuffKbd 'QC'
|ExitMenu